home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Educ / Higher Ed / G-M / MacPhaseExtras.sit / MacPhase Extras / Macros / vanCittert.m < prev   
MacBinary  |  1994-04-21  |  1.9 KB  |  [TEXT/DAHN]

open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert Ultima 6 (music/ultima6) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Amiga E Module (other/amigaEModule) ext Unsupported
1% dexvert ECX module (other/ecxModule) ext Unsupported
1% dexvert Maple Common Binary (other/mapleCommonBinary) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Thu Apr 21 22:42:34 1994, modified Thu Apr 21 22:42:34 1994, creator 'DAHN', type ASCII, 955 bytes "vanCittert.m" , at 0x43b 670 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[DAHN]



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 76 61 6e 43 69 74 | 74 65 72 74 2e 6d 00 00 |..vanCit|tert.m..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 44 41 48 | 4e 01 00 00 00 00 00 00 |.TEXTDAH|N.......|
|00000050| 00 00 00 00 00 03 bb 00 | 00 02 9e a9 dc ea 1a a9 |........|........|
|00000060| dc ea 1a 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d5 7c 00 00 |........|.....|..|
|00000080| 6d 61 63 72 6f 20 76 61 | 6e 43 69 74 74 65 72 74 |macro va|nCittert|
|00000090| 3b 0d 7b 20 20 4f 6e 20 | 74 68 65 20 66 69 72 73 |;.{ On |the firs|
|000000a0| 74 20 69 74 65 72 61 74 | 69 6f 6e 20 6f 66 20 74 |t iterat|ion of t|
|000000b0| 68 69 73 20 6d 61 63 72 | 6f 20 74 68 65 72 65 20 |his macr|o there |
|000000c0| 73 68 6f 75 6c 64 20 6e | 6f 74 20 62 65 20 61 6e |should n|ot be an|
|000000d0| 79 20 77 69 6e 64 6f 77 | 73 20 7d 0d 7b 20 20 63 |y window|s }.{ c|
|000000e0| 61 6c 6c 65 64 20 d2 4e | 65 78 74 20 49 6d 61 67 |alled .N|ext Imag|
|000000f0| 65 d3 20 6f 72 20 d2 50 | 72 65 76 69 6f 75 73 20 |e. or .P|revious |
|00000100| 49 6d 61 67 65 d3 20 7d | 0d 7b 20 20 59 6f 75 20 |Image. }|.{ You |
|00000110| 73 68 6f 75 6c 64 20 73 | 74 61 72 74 20 77 69 74 |should s|tart wit|
|00000120| 68 20 61 6e 20 69 6d 61 | 67 65 20 63 61 6c 6c 65 |h an ima|ge calle|
|00000130| 64 20 d2 53 74 61 72 74 | 20 49 6d 61 67 65 d3 20 |d .Start| Image. |
|00000140| 7d 0d 76 61 72 0d 09 62 | 6f 6f 6c 65 61 6e 20 3a |}.var..b|oolean :|
|00000150| 20 68 61 73 4e 65 78 74 | 2c 68 61 73 50 72 65 76 | hasNext|,hasPrev|
|00000160| 69 6f 75 73 2c 6f 6b 3b | 0d 09 6c 6f 6e 67 69 6e |ious,ok;|..longin|
|00000170| 74 20 3a 20 64 78 2c 64 | 79 3b 0d 62 65 67 69 6e |t : dx,d|y;.begin|
|00000180| 0d 09 44 69 73 70 6f 73 | 65 55 6e 43 6c 6f 73 65 |..Dispos|eUnClose|
|00000190| 3b 0d 09 6f 6b 3a 3d 45 | 78 69 73 74 28 27 53 74 |;..ok:=E|xist('St|
|000001a0| 61 72 74 20 49 6d 61 67 | 65 27 29 3b 0d 09 69 66 |art Imag|e');..if|
|000001b0| 28 21 6f 6b 29 0d 09 09 | 53 68 6f 77 45 72 72 6f |(!ok)...|ShowErro|
|000001c0| 72 28 27 20 27 2c 27 59 | 6f 75 20 6d 75 73 74 20 |r(' ','Y|ou must |
|000001d0| 73 74 61 72 74 20 77 69 | 74 68 20 61 6e 20 69 6d |start wi|th an im|
|000001e0| 61 67 65 20 63 61 6c 6c | 65 64 20 d2 53 74 61 72 |age call|ed .Star|
|000001f0| 74 20 49 6d 61 67 65 d3 | 2e 27 29 3b 0d 09 65 6e |t Image.|.');..en|
|00000200| 64 69 66 3b 0d 09 68 61 | 73 4e 65 78 74 3a 3d 45 |dif;..ha|sNext:=E|
|00000210| 78 69 73 74 28 27 4e 65 | 78 74 20 49 6d 61 67 65 |xist('Ne|xt Image|
|00000220| 27 29 3b 0d 09 68 61 73 | 50 72 65 76 69 6f 75 73 |');..has|Previous|
|00000230| 3a 3d 45 78 69 73 74 28 | 27 50 72 65 76 69 6f 75 |:=Exist(|'Previou|
|00000240| 73 20 49 6d 61 67 65 27 | 29 3b 0d 09 6f 6b 3a 3d |s Image'|);..ok:=|
|00000250| 54 52 55 45 3b 0d 09 69 | 66 28 21 68 61 73 4e 65 |TRUE;..i|f(!hasNe|
|00000260| 78 74 29 0d 09 09 6f 6b | 3a 3d 44 75 70 6c 69 63 |xt)...ok|:=Duplic|
|00000270| 61 74 65 44 61 74 61 28 | 27 53 74 61 72 74 20 49 |ateData(|'Start I|
|00000280| 6d 61 67 65 27 2c 46 41 | 4c 53 45 2c 27 4e 65 78 |mage',FA|LSE,'Nex|
|00000290| 74 20 49 6d 61 67 65 27 | 29 3b 0d 09 65 6e 64 69 |t Image'|);..endi|
|000002a0| 66 3b 0d 09 69 66 28 21 | 6f 6b 29 20 0d 09 09 65 |f;..if(!|ok) ...e|
|000002b0| 78 69 74 3b 0d 09 65 6e | 64 69 66 3b 09 0d 09 69 |xit;..en|dif;...i|
|000002c0| 66 28 68 61 73 4e 65 78 | 74 29 0d 09 09 6f 6b 3a |f(hasNex|t)...ok:|
|000002d0| 3d 44 75 70 6c 69 63 61 | 74 65 44 61 74 61 28 27 |=Duplica|teData('|
|000002e0| 4e 65 78 74 20 49 6d 61 | 67 65 27 2c 46 41 4c 53 |Next Ima|ge',FALS|
|000002f0| 45 2c 27 50 72 65 76 69 | 6f 75 73 20 49 6d 61 67 |E,'Previ|ous Imag|
|00000300| 65 27 29 3b 0d 09 65 6e | 64 69 66 3b 0d 09 69 66 |e');..en|dif;..if|
|00000310| 28 21 6f 6b 29 20 0d 09 | 09 65 78 69 74 3b 0d 09 |(!ok) ..|.exit;..|
|00000320| 65 6e 64 69 66 3b 09 0d | 09 53 69 6d 70 6c 65 46 |endif;..|.SimpleF|
|00000330| 69 6c 74 65 72 28 27 4e | 65 78 74 20 49 6d 61 67 |ilter('N|ext Imag|
|00000340| 65 27 2c 27 50 53 46 27 | 29 3b 0d 09 53 69 6d 70 |e','PSF'|);..Simp|
|00000350| 6c 65 4d 61 74 68 28 27 | 53 74 61 72 74 20 49 6d |leMath('|Start Im|
|00000360| 61 67 65 27 2c 2d 2c 27 | 4e 6f 6e 65 27 2c 27 4e |age',-,'|None','N|
|00000370| 65 78 74 20 49 6d 61 67 | 65 27 2c 27 4e 65 78 74 |ext Imag|e','Next|
|00000380| 20 49 6d 61 67 65 27 29 | 3b 0d 09 69 66 28 68 61 | Image')|;..if(ha|
|00000390| 73 50 72 65 76 69 6f 75 | 73 29 09 0d 09 09 53 69 |sPreviou|s)....Si|
|000003a0| 6d 70 6c 65 4d 61 74 68 | 28 27 4e 65 78 74 20 49 |mpleMath|('Next I|
|000003b0| 6d 61 67 65 27 2c 2b 2c | 27 4e 6f 6e 65 27 2c 27 |mage',+,|'None','|
|000003c0| 50 72 65 76 69 6f 75 73 | 20 49 6d 61 67 65 27 2c |Previous| Image',|
|000003d0| 27 4e 65 78 74 20 49 6d | 61 67 65 27 29 3b 0d 09 |'Next Im|age');..|
|000003e0| 65 6e 64 69 66 3b 0d 09 | 4b 69 6c 6c 52 4f 49 28 |endif;..|KillROI(|
|000003f0| 27 4e 65 78 74 20 49 6d | 61 67 65 27 29 3b 0d 09 |'Next Im|age');..|
|00000400| 53 65 6c 65 63 74 44 61 | 74 61 28 27 4e 65 78 74 |SelectDa|ta('Next|
|00000410| 20 49 6d 61 67 65 27 29 | 3b 0d 09 53 65 6c 65 63 | Image')|;..Selec|
|00000420| 74 44 61 74 61 28 27 53 | 74 61 72 74 20 49 6d 61 |tData('S|tart Ima|
|00000430| 67 65 27 29 3b 0d 65 6e | 64 3b 0d 00 00 00 00 00 |ge');.en|d;......|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 01 00 00 00 02 6c | 00 00 01 6c 00 00 00 32 |.......l|...l...2|
|00000490| 00 00 0a 5d 0a 43 6f 6d | 70 75 24 65 72 76 65 6c |...].Com|pu$ervel|
|000004a0| 02 00 00 00 54 45 58 54 | 4e 61 76 33 81 00 00 26 |....TEXT|Nav3...&|
|000004b0| 0c 76 61 6e 43 69 74 74 | 65 72 74 2e 6d e4 02 00 |.vanCitt|ert.m...|
|000004c0| 00 00 54 45 58 54 44 41 | 48 4e 01 00 00 00 00 c0 |..TEXTDA|HN......|
|000004d0| 00 00 54 45 58 54 44 41 | 48 4e 01 00 00 00 00 c0 |..TEXTDA|HN......|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 a9 c3 1d ed 00 00 | 03 bb 00 00 02 9e 00 00 |........|........|
|00000500| 00 00 00 00 00 00 0f 00 | 00 00 0a 5d 09 56 65 72 |........|...].Ver|
|00000510| 73 61 54 65 72 6d 02 00 | 00 00 61 64 72 70 56 50 |saTerm..|..adrpVP|
|00000520| 52 4f 81 00 00 3c 00 00 | 00 00 00 00 0a 7b 00 00 |RO...<..|.....{..|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 02 30 00 00 |........|.....0..|
|00000540| 16 00 a9 a7 dd bb a9 a7 | dd cf 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 03 76 00 00 |........|.....v..|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 02 cc 00 01 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 06 00 00 00 |........|........|
|00000580| 00 00 01 68 00 00 00 00 | 00 00 00 28 00 1e 02 44 |...h....|...(...D|
|00000590| 01 ac 00 06 00 00 00 43 | 00 00 00 43 00 00 00 00 |.......C|...C....|
|000005a0| 00 03 00 09 00 00 06 47 | 65 6e 65 76 61 00 00 00 |.......G|eneva...|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 04 00 | 00 05 00 00 00 48 00 48 |........|.....H.H|
|000005f0| 00 00 00 00 02 db 02 40 | ff e7 ff ee 02 ff 02 52 |.......@|.......R|
|00000600| 1f 03 05 28 03 fc 00 01 | 00 00 01 2c 01 2c 00 00 |...(....|...,.,..|
|00000610| 00 00 0b e7 09 60 01 2c | 00 2d 05 a0 5e ec 00 26 |.....`.,|.-..^..&|
|00000620| 04 01 01 01 00 18 00 01 | 27 0f 00 01 00 01 00 00 |........|'.......|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 64 00 00 |........|.....d..|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 01 00 01 02 00 00 00 00 |........|........|
|00000660| 00 04 00 09 00 00 06 4d | 6f 6e 61 63 6f 08 00 00 |.......M|onaco...|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 04 | 01 00 00 01 00 00 00 00 |........|........|
|000006b0| 00 01 00 01 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 01 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|000006f0| 00 00 02 6c 00 00 01 6c | 00 00 00 32 00 55 22 68 |...l...l|...2.U"h|
|00000700| 0a 4a 00 00 00 1c 00 32 | 00 00 42 42 53 52 00 00 |.J.....2|..BBSR..|
|00000710| 00 0a 02 50 ff ff 00 00 | 00 00 00 55 21 88 00 00 |...P....|...U!...|
|00000720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+